﻿Public Class AddinsControl

    Event Delete(ByVal rowIndex As Integer)

    Private Sub btn加载组件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn加载组件.Click
        If of1.ShowDialog = DialogResult.OK Then

            Me.lbl组件名称.Text = System.IO.Path.GetFileNameWithoutExtension(of1.FileName)
            Me.lbl组件路径.Text = of1.FileName

        End If
    End Sub

    Public Function Get组件() As 组件表
        Dim cl As New 组件表
        cl.组件名称 = lbl组件名称.Text.Trim
        cl.顺序 = nm顺序.Value
        If chk表.Checked Then
            cl.表 = 1

            If cbo添加表.Text = "使用" Then
                cl.添加表 = 1
            Else
                cl.添加表 = 0
            End If

            If cbo修改表.Text = "使用" Then
                cl.修改表 = 1
            Else
                cl.修改表 = 0
            End If

            If cbo删除表.Text = "使用" Then
                cl.删除表 = 1
            Else
                cl.删除表 = 0
            End If
        Else
            cl.添加表 = 0
            cl.修改表 = 0
            cl.删除表 = 0
        End If

        If chk触发器.Checked Then
            cl.触发器 = 1

            If cbo添加触发器.Text = "使用" Then
                cl.添加触发器 = 1
            Else
                cl.添加触发器 = 0
            End If

            If cbo修改触发器.Text = "使用" Then
                cl.修改触发器 = 1
            Else
                cl.修改触发器 = 0
            End If

            If cbo删除触发器.Text = "使用" Then
                cl.删除触发器 = 1
            Else
                cl.删除触发器 = 0
            End If
        Else
            cl.添加触发器 = 0
            cl.修改触发器 = 0
            cl.删除触发器 = 0
        End If

        If chk界面.Checked Then
            cl.界面 = 1
        Else
            cl.界面 = 0
        End If

        If chk添加菜单栏.Checked Then
            cl.菜单 = 1
        Else
            cl.菜单 = 0
        End If

        If chk添加工具栏.Checked Then
            cl.工具栏 = 1
        Else
            cl.工具栏 = 0
        End If

        If chk使用数据浏览窗体.Checked Then
            cl.浏览数据窗体 = 1
        Else
            cl.浏览数据窗体 = 0
        End If

        If chk不使用.Checked Then
            cl.不使用 = 1
        Else
            cl.不使用 = 0
        End If

        Return cl

    End Function

    Public Sub Init组件(ByVal 组件 As 组件表)

        lbl组件名称.Text = 组件.组件名称
        nm顺序.Value = 组件.顺序

        If 组件.表 = 1 Then
            Me.chk表.Checked = True

            If 组件.添加表 = 1 Then
                cbo添加表.Text = "使用"
            Else
                cbo添加表.Text = "不使用"
            End If

            If 组件.修改表 = 1 Then
                cbo修改表.Text = "使用"
            Else
                cbo修改表.Text = "不使用"
            End If

            If 组件.删除表 = 1 Then
                cbo删除表.Text = "使用"
            Else
                cbo删除表.Text = "不使用"
            End If

        Else
            Me.chk表.Checked = False
        End If

        If 组件.触发器 = 1 Then
            Me.chk触发器.Checked = True

            If 组件.添加触发器 = 1 Then
                cbo添加触发器.Text = "使用"
            Else
                cbo添加触发器.Text = "不使用"
            End If

            If 组件.修改触发器 = 1 Then
                cbo修改触发器.Text = "使用"
            Else
                cbo修改触发器.Text = "不使用"
            End If

            If 组件.删除触发器 = 1 Then
                cbo删除触发器.Text = "使用"
            Else
                cbo删除触发器.Text = "不使用"
            End If

        Else
            Me.chk触发器.Checked = False
        End If

        If 组件.界面 = 1 Then
            Me.chk界面.Checked = True
        Else
            Me.chk界面.Checked = False
        End If

        If 组件.菜单 = 1 Then
            Me.chk添加菜单栏.Checked = True
        Else
            Me.chk添加菜单栏.Checked = False
        End If

        If 组件.工具栏 = 1 Then
            Me.chk添加工具栏.Checked = True
        Else
            Me.chk添加工具栏.Checked = False
        End If

        If 组件.浏览数据窗体 = 1 Then
            Me.chk使用数据浏览窗体.Checked = True
        Else
            Me.chk使用数据浏览窗体.Checked = False
        End If

        If 组件.不使用 = 1 Then
            Me.chk不使用.Checked = True
        Else
            Me.chk不使用.Checked = False
        End If

    End Sub

End Class
